!**********************************************************
! define global variables used in other subroutine
!**********************************************************
! Created by : B. G.
! Date       : 2015-08-11
! Revised    : 
!**********************************************************
! Nomenclature:
!   Tt   total temperature, K
!   Pt   total pressure, Pa
!   g    specific heat ratio
!   Rg   gas constant
!   p0   ambient pressure, Pa
!   pu   incoming flow pressure, Pa
!   rhou incoming flow desity, kg/m^3
!   Vuu  incoming flow velocity, m/s
!   Tu   incoming flow temperature, K
!   Mu   incoming flow Mach number
!   pi   3.141592653
!   rtu  radii of upstream throat
!   rtd  radii of downstream throat
!   yt   throat radii
!   aw~cw coefficients of wall function
!   xa~thetaa geometric properties of attachment point
!   xe~thetae geometric properties of exit lip point
!   el~etheta error limits of location, pressure, density, velocity and theta
!   delta 1-axisymmetry, 0-planar
!   icor step number in point 4 calculation
!   flag40 if y4 < 0, 1-yes
!   x1~eps4 temporary variables employing in calculation, point 1, 2, 3 and 4
!   mdot mass flow rate, kg/(m^3-s)
!   
!   
!**********************************************************

module VariableDef
   implicit none
   ! aerodynamic variables
   real*8::Tt,Pt,g,Rg,p0,pu,rhou,Vuu,Tu,Mu
   ! geometric variables
   real*8::pi,rtu,rtd,yt,aw,bw,cw,xa,ya,thetaa,xe,ye,thetae
   ! error limits
   real*8::el,ep,erho,eV,etheta
   ! flag and indicator
   integer::delta,icor,flagy40,flagshock
   integer::Ny,Nt,Ni,Nj
   ! temporary variables
   real*8::x1,y1,V1,theta1,p1,rho1,eps1
   real*8::x2,y2,V2,theta2,p2,rho2
   real*8::x3,y3,V3,theta3,p3,rho3
   real*8::x4,y4,Vv4,Vu4,V4,theta4,p4,rho4,T4,M4,eps4
   ! performance variables
   real*8::mdot,F,mdot1d,Fs,F1d,Isp,Isp1d,CDm,etaF,etaI
end module VariableDef
